home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / M / LSP⁄C.cpt / compare.r < prev    next >
Text File  |  1989-01-05  |  8KB  |  244 lines
  1. #include "Types.r"
  2. #include "SysTypes.r"
  3.  
  4. resource 'vers' (1){
  5.     0x01,
  6.     0x00,
  7.     beta,
  8.     0x00,
  9.     0x00,
  10.     0x00,
  11.     "Version 1.0b0",
  12.     "Copyright © 1989\nGalen B. Babcock"
  13. };
  14.     
  15. resource 'vers' (2){
  16.     0x01,
  17.     0x00,
  18.     beta,
  19.     0x00,
  20.     0x00,
  21.     0x00,
  22.     "Version 1.0b0",
  23.     "by Galen Babcock"
  24. };
  25.     
  26. resource 'MENU' (128, "Apple", preload) {
  27.     128,
  28.     textMenuProc,
  29.     0x7FFFFFFD,
  30.     enabled,
  31.     apple,
  32.     {    /* array: 2 elements */
  33.         /* [1] */
  34.         "About This Demo…", noIcon, "", "", plain,
  35.         /* [2] */
  36.         "-", noIcon, "", "", plain
  37.     }
  38. };
  39.  
  40. resource 'MENU' (129, "File", preload) {
  41.     129,
  42.     textMenuProc,
  43.     allEnabled,
  44.     enabled,
  45.     "File",
  46.     {    
  47.         "New",noIcon,"N","",plain,
  48.         "Open…",noIcon,"O","",plain,
  49.         "Close",noIcon,".","",plain,
  50.         "-",noIcon,"","",plain,
  51.         "Save",noIcon,"S","",plain,
  52.         "Save As…",noIcon,"A","",plain,
  53.         "-",noIcon,"","",plain,
  54.         "Page Setup",noIcon,"","",plain,
  55.         "Print",noIcon,"","",plain,
  56.         "-",noIcon,"","",plain,
  57.         "Quit", noIcon, "Q", "", plain
  58.     }
  59. };
  60.  
  61. resource 'MENU' (130, "Edit", preload) {
  62.     130,
  63.     textMenuProc,
  64.     0x7FFFFFFC,
  65.     enabled,
  66.     "Edit",
  67.     {    /* array: 6 elements */
  68.         /* [1] */
  69.         "Undo", noIcon, "Z", "", plain,
  70.         /* [2] */
  71.         "-", noIcon, "", "", plain,
  72.         /* [3] */
  73.         "Cut", noIcon, "X", "", plain,
  74.         /* [4] */
  75.         "Copy", noIcon, "C", "", plain,
  76.         /* [5] */
  77.         "Paste", noIcon, "V", "", plain,
  78.         /* [6] */
  79.         "Clear", noIcon, "", "", plain
  80.     }
  81. };
  82.  
  83. resource 'MENU' (131, "Control", preload) {
  84.     131,
  85.     textMenuProc,
  86.     0x7FFFFFFF,
  87.     enabled,
  88.     "Compare",
  89.     {    
  90.         "Pointer Size", noIcon, "", "", plain,
  91.         "Number of loops", noIcon, "", "", plain,
  92.         "-",noIcon,"","",plain,
  93.         "Do It!", noIcon, "D", "", plain
  94.     }
  95. };
  96.  
  97.  
  98. resource 'MENU' (132, "Test", preload) {
  99.     132,
  100.     textMenuProc,
  101.     0x7FFFFFFF,
  102.     enabled,
  103.     "Test",
  104.     {    
  105.         "10", noIcon, "", "", plain,
  106.         "20", noIcon, "", "", plain,
  107.         "50", noIcon, "", "", plain,
  108.         "100", noIcon, "", "", plain,
  109.         "200", noIcon, "", "", plain,
  110.         "500", noIcon, "", "", plain,
  111.         "1000", noIcon, "", "",plain,
  112.         "2000", noIcon, "", "",plain,
  113.         "10000", noIcon, "", "",plain
  114.     }
  115. };
  116.  
  117. resource 'MENU' (133,"Pointer",preload){
  118.     133,
  119.     textMenuProc,
  120.     0x7FFFFFFF,
  121.     enabled,
  122.     "Pointer",
  123.     {
  124.         "512 bytes", noIcon,"","",plain,
  125.         "1024 bytes",noIcon,"","",plain,
  126.         "2048 bytes",noIcon,"","",plain,
  127.         "4096 bytes",noIcon,"","",plain,
  128.         "8192 bytes",noIcon,"","",plain,
  129.         "16384 bytes",noIcon,"","",plain,
  130.         "32768 bytes",noIcon,"","",plain
  131.     }
  132. };
  133.  
  134. resource 'BNDL' (128, purgeable) {
  135.     'Lsps',
  136.     0,
  137.     {    /* array TypeArray: 2 elements */
  138.         /* [1] */
  139.         'ICN#',
  140.         {    /* array IDArray: 1 elements */
  141.             /* [1] */
  142.             0, 128
  143.         },
  144.         /* [2] */
  145.         'FREF',
  146.         {    /* array IDArray: 1 elements */
  147.             /* [1] */
  148.             0, 128
  149.         }
  150.     }
  151. };
  152.  
  153. resource 'FREF' (128, purgeable) {
  154.     'APPL',
  155.     0,
  156.     ""
  157. };
  158.  
  159. resource 'ICN#' (128, purgeable) {
  160.     {    /* array: 2 elements */
  161.         /* [1] */
  162.         $"3FFF F800 2000 0C00 2F00 0BF0 2F70 0910"
  163.         $"2000 0890 2000 0FD0 2F00 0050 2F78 0050"
  164.         $"2000 0050 2F80 0050 2F80 0050 2000 0050"
  165.         $"21F6 0050 2000 0050 21FC 3F50 2000 4090"
  166.         $"21F0 8050 21F1 3020 2001 C810 201E 7F8F"
  167.         $"2002 3007 2001 0007 2000 8007 2000 6007"
  168.         $"2000 1FE7 2000 005F 2000 0057 2000 0050"
  169.         $"2000 0050 3FFF FFD0 0800 0010 0FFF FFF0",
  170.         /* [2] */
  171.         $"3FFF F800 3FFF FC00 3FFF FFF0 3FFF FFF0"
  172.         $"3FFF FFF0 3FFF FFF0 3FFF FFF0 3FFF FFF0"
  173.         $"3FFF FFF0 3FFF FFF0 3FFF FFF0 3FFF FFF0"
  174.         $"3FFF FFF0 3FFF FFF0 3FFF FFF0 3FFF FFF0"
  175.         $"3FFF FFF0 3FFF FFE0 3FFF FFF0 3FFF FFFF"
  176.         $"3FFF FFFF 3FFF FFFF 3FFF FFFF 3FFF FFFF"
  177.         $"3FFF FFFF 3FFF FFFF 3FFF FFF7 3FFF FFF0"
  178.         $"3FFF FFF0 3FFF FFF0 0FFF FFF0 0FFF FFF0"
  179.     }
  180. };
  181.  
  182. data 'Lsps' (0) {
  183.     $"1456 6572 7369 6F6E 2031 2E30 202D 2031"        /* .Version 1.0 - 1 */
  184.     $"2F31 2F38 39"                                   /* /1/89 */
  185. };
  186.  
  187.  
  188. data 'TEXT' (1000) {
  189.     $"50 61 73 63 61 6C 20 A5 20 43 20 43 6F 6D 70 61"/* Pascal • C Compa */
  190.     $"72 69 73 6F 6E 0D 62 79 20 47 61 6C 65 6E 20 42"/* rison¬by Galen B */
  191.     $"61 62 63 6F 63 6B 0D 4A 61 6E 75 61 72 79 2C 20"/* abcock¬January,  */
  192.     $"31 39 38 39 0D 0D 54 68 69 73 20 61 70 70 6C 69"/* 1989¬¬This appli */
  193.     $"63 61 74 69 6F 6E 20 63 6F 6D 70 61 72 65 73 20"/* cation compares  */
  194.     $"74 68 65 20 65 78 65 63 75 74 69 6F 6E 20 73 70"/* the execution sp */
  195.     $"65 65 64 20 6F 66 20 63 6F 64 65 20 67 65 6E 65"/* eed of code gene */
  196.     $"72 61 74 65 64 20 62 79 20 74 68 65 20 54 48 49"/* rated by the THI */
  197.     $"4E 4B 20 43 20 56 65 72 73 69 6F 6E 20 33 2E 30"/* NK C Version 3.0 */
  198.     $"20 61 6E 64 20 54 48 49 4E 4B 20 50 61 73 63 61"/*  and THINK Pasca */
  199.     $"6C 20 56 65 72 73 69 6F 6E 20 32 2E 30 20 63 6F"/* l Version 2.0 co */
  200.     $"6D 70 69 6C 65 72 73 2E 20 20 54 77 6F 20 76 65"/* mpilers.  Two ve */
  201.     $"72 73 69 6F 6E 73 20 6F 66 20 74 68 65 20 54 48"/* rsions of the TH */
  202.     $"49 4E 4B 20 43 20 63 6F 64 65 20 61 72 65 20 70"/* INK C code are p */
  203.     $"72 6F 76 69 64 65 64 2C 20 6F 6E 65 20 75 73 69"/* rovided, one usi */
  204.     $"6E 67 20 4D 6F 74 6F 72 6F 6C 61 20 36 38 30 30"/* ng Motorola 6800 */
  205.     $"30 20 61 64 64 72 65 73 73 20 72 65 67 69 73 74"/* 0 address regist */
  206.     $"65 72 73 2C 20 61 6E 64 20 6F 6E 65 20 77 69 74"/* ers, and one wit */
  207.     $"68 6F 75 74 20 73 70 65 63 69 66 79 69 6E 67 20"/* hout specifying  */
  208.     $"74 68 65 20 75 73 65 20 6F 66 20 72 65 67 69 73"/* the use of regis */
  209.     $"74 65 72 73 2E 20 20 50 61 73 63 61 6C 20 70 72"/* ters.  Pascal pr */
  210.     $"6F 76 69 64 65 73 20 6E 6F 20 6D 65 63 68 61 6E"/* ovides no mechan */
  211.     $"69 73 6D 20 66 6F 72 20 66 6F 72 63 69 6E 67 20"/* ism for forcing  */
  212.     $"61 64 64 72 65 73 73 65 73 20 69 6E 74 6F 20 72"/* addresses into r */
  213.     $"65 67 69 73 74 65 72 73 2E 0D 0D 41 6C 6C 20 33"/* egisters.¬¬All 3 */
  214.     $"20 72 6F 75 74 69 6E 65 73 20 66 69 6C 6C 20 61"/*  routines fill a */
  215.     $"20 62 6C 6F 63 6B 20 28 72 65 66 65 72 65 6E 63"/*  block (referenc */
  216.     $"65 64 20 76 69 61 20 61 20 70 6F 69 6E 74 65 72"/* ed via a pointer */
  217.     $"29 20 6F 66 20 76 61 72 79 69 6E 67 20 73 69 7A"/* ) of varying siz */
  218.     $"65 73 20 77 69 74 68 20 61 20 73 69 6E 67 6C 65"/* es with a single */
  219.     $"20 63 68 61 72 61 63 74 65 72 2E 20 54 68 65 20"/*  character. The  */
  220.     $"73 69 7A 65 20 6F 66 20 74 68 65 20 62 6C 6F 63"/* size of the bloc */
  221.     $"6B 20 61 6E 64 20 74 68 65 20 6E 75 6D 62 65 72"/* k and the number */
  222.     $"20 6F 66 20 74 69 6D 65 73 20 74 68 65 20 72 6F"/*  of times the ro */
  223.     $"75 74 69 6E 65 20 69 73 20 65 78 65 63 75 74 65"/* utine is execute */
  224.     $"64 20 66 6F 72 20 65 61 63 68 20 6F 66 20 74 68"/* d for each of th */
  225.     $"65 20 33 20 76 65 72 73 69 6F 6E 73 20 61 72 65"/* e 3 versions are */
  226.     $"20 73 65 6C 65 63 74 61 62 6C 65 20 66 72 6F 6D"/*  selectable from */
  227.     $"20 74 68 65 20 22 43 6F 6D 70 61 72 65 22 20 6D"/*  the "Compare" m */
  228.     $"65 6E 75 2E 0D 0D 54 68 65 20 77 69 6E 64 6F 77"/* enu.¬¬The window */
  229.     $"20 61 6C 73 6F 20 64 69 73 70 6C 61 79 73 20 61"/*  also displays a */
  230.     $"20 22 50 65 72 66 6F 72 6D 61 6E 63 65 20 49 6E"/*  "Performance In */
  231.     $"64 65 78 22 20 76 61 6C 75 65 2C 20 77 68 69 63"/* dex" value, whic */
  232.     $"68 20 69 73 20 73 69 6D 70 6C 79 20 61 20 63 6F"/* h is simply a co */
  233.     $"6D 70 61 72 69 73 6F 6E 20 6F 66 20 74 68 65 20"/* mparison of the  */
  234.     $"33 20 65 78 65 63 75 74 69 6F 6E 20 74 69 6D 65"/* 3 execution time */
  235.     $"73 20 76 65 72 73 75 73 20 61 20 63 6F 6E 74 72"/* s versus a contr */
  236.     $"6F 6C 20 74 69 6D 65 2E 20 20 59 6F 75 20 63 61"/* ol time.  You ca */
  237.     $"6E 20 73 65 6C 65 63 74 20 77 68 69 63 68 20 72"/* n select which r */
  238.     $"6F 75 74 69 6E 65 20 69 73 20 74 68 65 20 63 6F"/* outine is the co */
  239.     $"6E 74 72 6F 6C 20 62 79 20 63 6C 69 63 6B 69 6E"/* ntrol by clickin */
  240.     $"67 20 69 6E 20 74 68 65 20 70 65 72 66 6F 72 6D"/* g in the perform */
  241.     $"61 6E 63 65 20 69 6E 64 65 78 20 62 6F 78 65 73"/* ance index boxes */
  242.     $"2E 00"                                          /* .. */
  243. };
  244.